(COMMENT THIS BUG WAS SUBMITTED BY BEATRICE FROCK OF THE ROYAL
	 INSTITUTE OF TECHNOLOGY DEPARTMENT FOR COMPUTER SCIENCES
	 NUMERICAL ANALYSIS S-10044 STOCKHOLM 70 SWEDEN STOP HER
	 FUNCTION FOR PRODUCES A LOSTVAR-ILOC1 WHICH APPEARS TO BE
	 THE VALUE OF THE (EVAL U2) STOP THE BUG SEEMS TO BE DUE TO
	 THE EVAL IN PREDICATE CONTEXT IN THE COND IN SIDEEFFECT
	 CONTEXT STOP FORSHORT PRESERVES THE BUG WHILE FORFIX CURES
	 IT)

(DEFPROP FOR
	 (LAMBDA (A U1 U2 U3)
		 (PROG NIL
		       (SETQ A 0)
		  NEXT (EVAL U3)
		       (SET A (EVAL U1))
		       (COND ((EVAL U2) (RETURN)) (T (GO NEXT)))))
	 EXPR)

(DEFPROP FORSHORT
	 (LAMBDA (U2) (PROG NIL (COND ((EVAL U2) (RETURN)))))
	 EXPR)

(DEFPROP FORFIX
	 (LAMBDA (U2) (PROG NIL (COND ((WASEVAL U2) (RETURN)))))
	 EXPR)